home *** CD-ROM | disk | FTP | other *** search
/ Hackers Handbook - Millenium Edition / Hackers Handbook.iso / files / c_scripts / wordlist.perl < prev    next >
Encoding:
Text File  |  1998-12-05  |  2.1 KB  |  58 lines
  1. # Wordlist generator by manicx and G - http://www.rootshell.com/
  2. # useage "perl wordgen.pl"
  3.  
  4. system("cls");
  5. print ("\n\t**************************************************");
  6. print ("\n\t*                Wordlist.pl  V0.01              *");
  7. print ("\n\t*                   manicx and G                 *");
  8. print ("\n\t*                29th November 1998              *");
  9. print ("\n\t*    Latest Version www.infowar.co.uk/manicx/    *");
  10. print ("\n\t**************************************************");
  11. sleep 1;
  12. srand(time);
  13.              # an array of the random characters we want to produce
  14.              # remove any you know are not in the password
  15. @c=split(/ */, "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789");
  16.  
  17. print "\nEnter the name of the output file :";
  18. $word = <STDIN>;
  19. chop ($word);
  20. open (CONF, ">$word") or die print $word, "\n Not Valid Filename Please check. \n";
  21.  
  22. print "\nAmount of random words :";
  23. $many=<STDIN>;
  24.  
  25. # we will repeat the following lines $many times i will be splitting
  26. # down the @c array with caps in 1, symbols in 1, lowercase in 1 and
  27. # numbers in 1.
  28.  
  29. for($i=0; $i <$many; $i +=1)
  30.     {
  31. print CONF     $c[int(rand(62))], $c[int(rand(62))], $c[int(rand(62))],
  32.         $c[int(rand(62))], $c[int(rand(62))], $c[int(rand(62))],
  33.         $c[int(rand(62))], $c[int(rand(62))]; 
  34. print CONF "\n";
  35.     }
  36.  
  37. # In the next version i want to be able to give templates as an input
  38. # and build all the combinations in between i.e. the password starts
  39. # with "John" and there are 8 characters and none are numbers or
  40. # uppercase so we can input "john"llll ..
  41.  
  42. # Below will produce words like bababa99 this was done and can be 
  43. # rearranged a bit as you need before the next version ..........
  44.  
  45. # @c=split(/ */, "bcdfghjklmnpqrstvwxyz");
  46. # @v=split(/ */, "aeiou");
  47.  
  48. # {
  49. # print CONF $c[int(rand(21))], $v[int(rand(5))],
  50. #            $c[int(rand(21))], $v[int(rand(5))],
  51. #            $c[int(rand(21))], $v[int(rand(5))],
  52. #            int(rand(10)), int(rand(10));
  53. # print CONF "\n";
  54. # }
  55.  
  56. # Shouts to G for the orginal idea and version
  57.  
  58.